easystats.
linear_model_interaction <-
lm(
curfew_yes_no ~ age_cat * education_cat,
data = gp_covid
)
model_parameters(linear_model_interaction) %>%
plot()
plot_model() function from sjPlot.
library(sjPlot)
plot_model(
linear_model_interaction,
type = "int"
)